﻿Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class FrmReporteEntradaMP

    Private Sub FrmReporteEntradaMP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'Dim parametro As New ParameterFields()
            'Dim primerparametro As New ParameterField()
            'Dim mydiscrete As New ParameterDiscreteValue()

            'primerparametro.ParameterValueType = ParameterValueKind.NumberParameter
            'primerparametro.Name = "@idmovi"
            'mydiscrete.Value = registroUltimo

            'primerparametro.CurrentValues.Add(mydiscrete)
            'parametro.Add(primerparametro)
            'CrystalReportViewer1.ParameterFieldInfo = parametro

            'Dim info As New CRVreporteEntradaMP
            'CrystalReportViewer1.ReportSource = info


            Dim dato1 As New ParameterValues
            Dim pvisualizar As New ParameterDiscreteValue
            Dim cr1 As New CRVreporteEntradaMP

            pvisualizar.Value = registroUltimo
            dato1.Add(pvisualizar)
            cr1.DataDefinition.ParameterFields("@idmovi").ApplyCurrentValues(dato1)
            Me.CrystalReportViewer1.ReportSource = cr1
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class